/**
 * Copyright &copy; 2012-2016 <a href="https://github.com/thinkgem/jeesite">JeeSite</a> All rights reserved.
 */
package com.simulation.demo.excel;

import com.google.common.collect.Lists;
import org.apache.commons.lang3.StringUtils;
import org.apache.poi.ss.usermodel.*;
import org.apache.poi.ss.util.CellRangeAddress;
import org.apache.poi.xssf.streaming.SXSSFWorkbook;
import org.apache.poi.xssf.usermodel.XSSFClientAnchor;
import org.apache.poi.xssf.usermodel.XSSFRichTextString;
import org.slf4j.Logger;
import org.slf4j.LoggerFactory;

import java.io.File;
import java.io.FileOutputStream;
import java.io.IOException;
import java.io.OutputStream;
import java.lang.reflect.Field;
import java.lang.reflect.Method;
import java.util.*;

/**
 * 导出Excel文件（导出“XLSX”格式，支持大数据量导出   @see org.apache.poi.ss.SpreadsheetVersion）
 *
 * @author ThinkGem
 * @version 2013-04-21
 */
public class ExportExcel {

    private static Logger log = LoggerFactory.getLogger(ExportExcel.class);

    /**
     * 单页最大的行数
     */
    private static int MAX_ROW_NUM = 11000;

    /**
     * 工作薄对象
     */
    private SXSSFWorkbook wb;

    /**
     * 工作表对象
     */
    private Sheet sheet;

    /**
     * 样式列表
     */
    private Map<String, CellStyle> styles;

    /**
     * 当前行号
     */
    private int rownum;

    /**
     * 注解列表（Object[]{ ExcelField, Field/Method }）
     */
    private List<Object[]> annotationList = Lists.newArrayList();

    /**
     * 构造函数
     *
     * @param title     表格标题，传“空值”，表示无标题
     * @param sheetName 页签名称
     * @param cls       实体对象，通过annotation.ExportField获取标题
     */
    public ExportExcel(String title, String sheetName, Class<?> cls) {
        this(title, sheetName, cls, 1);
    }

    /**
     * 构造函数
     *
     * @param title     表格标题，传“空值”，表示无标题
     * @param sheetName 页签名称
     * @param cls       实体对象，通过annotation.ExportField获取标题
     * @param type      导出类型（1:导出数据；2：导出模板）
     * @param groups    导入分组
     */
    public ExportExcel(String title, String sheetName, Class<?> cls, int type, int... groups) {
        // Get annotation field
        List<Field> allFields = new ArrayList<>();
        Field[] fs = cls.getDeclaredFields();
        allFields.addAll(Arrays.asList(fs));
        Class superClass = cls.getSuperclass();
        while (superClass != null) {
            Field[] declaredFields = superClass.getDeclaredFields();
            allFields.addAll(Arrays.asList(declaredFields));
            superClass = superClass.getSuperclass();
        }
        for (Field f : allFields) {
            ExcelField ef = f.getAnnotation(ExcelField.class);
            if (ef != null && (ef.type() == 0 || ef.type() == type)) {
                if (groups != null && groups.length > 0) {
                    boolean inGroup = false;
                    for (int g : groups) {
                        if (inGroup) {
                            break;
                        }
                        for (int efg : ef.groups()) {
                            if (g == efg) {
                                inGroup = true;
                                annotationList.add(new Object[]{ef, f});
                                break;
                            }
                        }
                    }
                } else {
                    annotationList.add(new Object[]{ef, f});
                }
            }
        }
        // Get annotation method
        // Field sorting
        annotationList.sort(Comparator.comparing(o -> (((ExcelField) o[0]).sort())));
        // Initialize
        List<String> headerList = Lists.newArrayList();
        for (Object[] os : annotationList) {
            String t = ((ExcelField) os[0]).title();
            // 如果是导出，则去掉注释
            if (type == 1) {
                String[] ss = StringUtils.split(t, "**", 2);
                if (ss.length == 2) {
                    t = ss[0];
                }
            }
            headerList.add(t);
        }
        initialize(title, sheetName, headerList);
    }

    /**
     * 构造函数
     *
     * @param title     表格标题，传“空值”，表示无标题
     * @param sheetName
     * @param headers   表头数组
     */
    public ExportExcel(String title, String sheetName, String[] headers) {
        initialize(title, sheetName, Lists.newArrayList(headers));
    }

    /**
     * 构造函数
     *
     * @param title      表格标题，传“空值”，表示无标题
     * @param sheetName  页签名称
     * @param headerList 表头列表
     */
    public ExportExcel(String title, String sheetName, List<String> headerList) {
        initialize(title, sheetName, headerList);
    }

    /**
     * 初始化函数
     *
     * @param title      表格标题，传“空值”，表示无标题
     * @param headerList 表头列表
     */
    private void initialize(String title, String sheetName, List<String> headerList) {
        this.wb = new SXSSFWorkbook(MAX_ROW_NUM);
        if (StringUtils.isNotEmpty(sheetName)) {
            this.sheet = wb.createSheet(sheetName);
        } else {
            this.sheet = wb.createSheet("Export");
        }
        this.styles = createStyles(wb);
        // Create title
        if (StringUtils.isNotBlank(title)) {
            Row titleRow = sheet.createRow(rownum++);
            titleRow.setHeightInPoints(30);
            Cell titleCell = titleRow.createCell(0);
            titleCell.setCellStyle(styles.get("title"));
            titleCell.setCellValue(title);
            sheet.addMergedRegion(new CellRangeAddress(titleRow.getRowNum(),
                    titleRow.getRowNum(), titleRow.getRowNum(), headerList.size() - 1));
        }
        // Create header
        if (headerList == null) {
            throw new RuntimeException("headerList not null!");
        }
        Row headerRow = sheet.createRow(rownum++);
        headerRow.setHeightInPoints(16);
        for (int i = 0; i < headerList.size(); i++) {
            Cell cell = headerRow.createCell(i);
            cell.setCellStyle(styles.get("header"));
            String[] ss = StringUtils.split(headerList.get(i), "**", 2);
            if (ss.length == 2) {
                cell.setCellValue(ss[0]);
                Comment comment = this.sheet.createDrawingPatriarch().createCellComment(
                        new XSSFClientAnchor(0, 0, 0, 0, (short) 3, 3, (short) 5, 6));
                comment.setString(new XSSFRichTextString(ss[1]));
                cell.setCellComment(comment);
            } else {
                cell.setCellValue(headerList.get(i));
            }
            //  sheet.autoSizeColumn(i);
        }
        for (int i = 0; i < headerList.size(); i++) {
            int colWidth = sheet.getColumnWidth(i) * 2;
            sheet.setColumnWidth(i, colWidth < 3000 ? 3000 : colWidth);
        }
    }

    /**
     * 创建表格样式
     *
     * @param wb 工作薄对象
     * @return 样式列表
     */
    private Map<String, CellStyle> createStyles(Workbook wb) {
        Map<String, CellStyle> styles = new HashMap<>(16);

        CellStyle style = wb.createCellStyle();
        style.setAlignment(CellStyle.ALIGN_CENTER);
        style.setVerticalAlignment(CellStyle.VERTICAL_CENTER);
        Font titleFont = wb.createFont();
        titleFont.setFontName("微软雅黑");
        titleFont.setFontHeightInPoints((short) 16);
        titleFont.setBoldweight(Font.BOLDWEIGHT_BOLD);
        style.setFont(titleFont);
        styles.put("title", style);

        style = wb.createCellStyle();
        style.setVerticalAlignment(CellStyle.VERTICAL_CENTER);
        style.setBorderRight(CellStyle.BORDER_THIN);
        style.setRightBorderColor(IndexedColors.GREY_50_PERCENT.getIndex());
        style.setBorderLeft(CellStyle.BORDER_THIN);
        style.setLeftBorderColor(IndexedColors.GREY_50_PERCENT.getIndex());
        style.setBorderTop(CellStyle.BORDER_THIN);
        style.setTopBorderColor(IndexedColors.GREY_50_PERCENT.getIndex());
        style.setBorderBottom(CellStyle.BORDER_THIN);
        style.setBottomBorderColor(IndexedColors.GREY_50_PERCENT.getIndex());
        Font dataFont = wb.createFont();
        dataFont.setFontName("微软雅黑");
        dataFont.setFontHeightInPoints((short) 10);
        style.setFont(dataFont);
        styles.put("data", style);

        style = wb.createCellStyle();
        style.cloneStyleFrom(styles.get("data"));
        style.setAlignment(CellStyle.ALIGN_LEFT);
        styles.put("data1", style);

        style = wb.createCellStyle();
        style.cloneStyleFrom(styles.get("data"));
        style.setAlignment(CellStyle.ALIGN_CENTER);
        styles.put("data2", style);

        style = wb.createCellStyle();
        style.cloneStyleFrom(styles.get("data"));
        style.setAlignment(CellStyle.ALIGN_RIGHT);
        styles.put("data3", style);

        style = wb.createCellStyle();
        style.cloneStyleFrom(styles.get("data"));
        style.setAlignment(CellStyle.ALIGN_CENTER);
        style.setFillForegroundColor(IndexedColors.GREY_50_PERCENT.getIndex());
        style.setFillPattern(CellStyle.SOLID_FOREGROUND);
        Font headerFont = wb.createFont();
        headerFont.setFontName("微软雅黑");
        headerFont.setFontHeightInPoints((short) 10);
        headerFont.setBoldweight(Font.BOLDWEIGHT_BOLD);
        headerFont.setColor(IndexedColors.WHITE.getIndex());
        style.setFont(headerFont);
        styles.put("header", style);

        return styles;
    }

    /**
     * 添加一行
     *
     * @return 行对象
     */
    private Row addRow() {
        return sheet.createRow(rownum++);
    }


    /**
     * 添加一个单元格
     *
     * @param row    添加的行
     * @param column 添加列号
     * @param val    添加值
     * @return 单元格对象
     */
    private Cell addCell(Row row, int column, Object val, ExcelField ef) {
        return this.addCell(row, column, val, ef, Class.class);
    }

    /**
     * 添加一个单元格
     *
     * @param row    添加的行
     * @param column 添加列号
     * @param val    添加值
     * @param ef     ef.align对齐方式（1：靠左；2：居中；3：靠右）,ef.link 链接形式展示
     * @return 单元格对象
     */
    private Cell addCell(Row row, int column, Object val, ExcelField ef, Class<?> fieldType) {
        Cell cell = row.createCell(column);
        String cellFormatString = "@";
        try {
            if (val == null) {
                cell.setCellValue("");
            } else if (fieldType != Class.class) {
                cell.setCellValue((String) fieldType.getMethod("setValue", Object.class).invoke(null, val));
            } else {
                if (val instanceof String) {
                    if (ef.link() != 0) {
                        Hyperlink hyperlink = wb.getCreationHelper().createHyperlink(ef.link());
                        hyperlink.setAddress((String) val);
                        cell.setHyperlink(hyperlink);
                    }
                    cell.setCellValue((String) val);
                } else if (val instanceof Boolean) {
                    cell.setCellValue(Boolean.valueOf(val.toString()));
                } else if (val instanceof Integer) {
                    cell.setCellValue((Integer) val);
                    cellFormatString = "0";
                } else if (val instanceof Long) {
                    cell.setCellValue((Long) val);
                    cellFormatString = "0";
                } else if (val instanceof Double) {
                    cell.setCellValue((Double) val);
                    cellFormatString = "0.00";
                } else if (val instanceof Float) {
                    cell.setCellValue((Float) val);
                    cellFormatString = "0.00";
                } else if (val instanceof Date) {
                    cell.setCellValue((Date) val);
                    cellFormatString = "yyyy-MM-dd HH:mm:ss";
                } else {
                    cell.setCellValue((String) Class.forName(this.getClass().getName().replaceAll(this.getClass().getSimpleName(),
                            "fieldtype." + val.getClass().getSimpleName() + "Type")).getMethod("setValue", Object.class).invoke(null, val));
                }
            }
            CellStyle style = styles.get("data_column_" + column);
            if (style == null) {
                int align = ef.align();
                style = wb.createCellStyle();
                style.cloneStyleFrom(styles.get("data" + (align >= 1 && align <= 3 ? align : "")));
                style.setDataFormat(wb.createDataFormat().getFormat(cellFormatString));

                styles.put("data_column_" + column, style);
            }
            cell.setCellStyle(style);
        } catch (Exception ex) {
            ex.printStackTrace();
            cell.setCellValue(val.toString());
        }
        return cell;
    }

    /**
     * 添加数据（通过annotation.ExportField添加数据）
     *
     * @return list 数据列表
     */
    public <E> ExportExcel setDataList(List<E> list) {
        if (list == null) {
            return this;
        }
        for (E e : list) {
            int colunm = 0;
            Row row = this.addRow();
            for (Object[] os : annotationList) {
                ExcelField ef = (ExcelField) os[0];
                Object val = null;
                try {
                    if (StringUtils.isNotBlank(ef.value())) {
                        val = Reflections.invokeGetter(e, ef.value());
                    } else {
                        if (os[1] instanceof Field) {
                            val = Reflections.invokeGetter(e, ((Field) os[1]).getName());
                        } else if (os[1] instanceof Method) {
                            val = Reflections.invokeMethod(e, ((Method) os[1]).getName(), new Class[]{}, new Object[]{});
                        }
                    }
                    if (StringUtils.isNotBlank(ef.dictType())) {
                        //    val = DictUtils.getDictLabel(val == null ? "" : val.toString(), ef.dictType(), "");
                    }
                } catch (Exception ex) {
                    log.info(ex.toString());
                    val = "";
                }
                this.addCell(row, colunm++, val, ef, ef.fieldType());
            }
        }
        return this;
    }

    /**
     * 输出数据流
     *
     * @param os 输出数据流
     */
    public ExportExcel write(OutputStream os) throws IOException {
        wb.write(os);
        os.flush();
        os.close();
        return this;
    }


    /**
     * 输出到文件
     *
     * @param name 输出文件名
     */
    public ExportExcel writeFile(String name) {
        try {
            File file = new File(name);

            File parentFile = file.getParentFile();
            if (!parentFile.exists()) {
                parentFile.mkdirs();
            }
            if (!file.exists()) {
                file.createNewFile();
            }
            FileOutputStream os = new FileOutputStream(name);
            this.write(os);
            return this;
        } catch (IOException e) {
            e.printStackTrace();
        }
        return this;
    }

    /**
     * 清理临时文件
     */
    public ExportExcel dispose() {
        wb.dispose();
        return this;
    }


    /**
     * 合并excel
     *
     * @param addExcel 新增的excel
     * @return 当前excel
     */
    public ExportExcel joinExcel(ExportExcel addExcel) {
        Sheet fromSheet = addExcel.getSheet();
        Sheet toSheet = this.wb.createSheet(fromSheet.getSheetName());
        for (int i = 0; i <= fromSheet.getLastRowNum(); i++) {
            Row oldRow = fromSheet.getRow(i);
            Row newRow = toSheet.createRow(i);
            toSheet.setColumnWidth(i, fromSheet.getColumnWidth(i));
            copyRow(wb, oldRow, newRow);
        }
        return this;
    }

    /**
     * 拷贝行
     *
     * @param wb     工作表
     * @param oldRow 源
     * @param toRow  目标
     */
    private void copyRow(SXSSFWorkbook wb, Row oldRow, Row toRow) {
        toRow.setHeight(oldRow.getHeight());
        for (int i = 0; i < oldRow.getLastCellNum(); i++) {
            Cell tmpCell = oldRow.getCell(i);
            Cell newCell = toRow.createCell(tmpCell.getColumnIndex());
            copyCell(wb, tmpCell, newCell);
        }
    }

    /**
     * 拷贝单元格
     *
     * @param wb       工作表对象
     * @param fromCell 单元格源
     * @param toCell   目标
     */
    private void copyCell(SXSSFWorkbook wb, Cell fromCell, Cell toCell) {
        CellStyle newStyle = wb.createCellStyle();
        copyCellStyle(fromCell.getCellStyle(), newStyle);
        //样式
        toCell.setCellStyle(newStyle);
        if (fromCell.getCellComment() != null) {
            toCell.setCellComment(fromCell.getCellComment());
        }
        // 不同数据类型处理
        int fromCellType = fromCell.getCellType();
        toCell.setCellType(fromCellType);
        if (fromCellType == Cell.CELL_TYPE_NUMERIC) {
            if (DateUtil.isCellDateFormatted(fromCell)) {
                toCell.setCellValue(fromCell.getDateCellValue());
            } else {
                toCell.setCellValue(fromCell.getNumericCellValue());
            }
        } else if (fromCellType == Cell.CELL_TYPE_STRING) {
            Hyperlink hyperlink = fromCell.getHyperlink();
            if (hyperlink != null) {
                hyperlink.setAddress(fromCell.getStringCellValue());
                toCell.setHyperlink(hyperlink);
            }
            toCell.setCellValue(fromCell.getRichStringCellValue());
        } else if (fromCellType == Cell.CELL_TYPE_BOOLEAN) {
            toCell.setCellValue(fromCell.getBooleanCellValue());
        } else if (fromCellType == Cell.CELL_TYPE_ERROR) {
            toCell.setCellErrorValue(fromCell.getErrorCellValue());
        } else if (fromCellType == Cell.CELL_TYPE_FORMULA) {
            toCell.setCellFormula(fromCell.getCellFormula());
        }
        //行的合并单元格拷贝
        boolean merge = isMerge(fromCell.getSheet(), fromCell.getRowIndex(), fromCell.getColumnIndex());
        if (merge) {
            int mergeLastNum = fromCell.getColumnIndex() + 1;
            while (isMerge(fromCell.getSheet(), fromCell.getRowIndex(), mergeLastNum)) {
                mergeLastNum++;
            }
            toCell.getSheet().addMergedRegion(new CellRangeAddress(fromCell.getRowIndex(), fromCell.getRowIndex(), fromCell.getColumnIndex(), mergeLastNum - 1));
        }
    }

    /**
     * 拷贝单元格样式
     *
     * @param fromStyle 样式源
     * @param toStyle   目标样式
     */
    private static void copyCellStyle(CellStyle fromStyle, CellStyle toStyle) {
        toStyle.cloneStyleFrom(fromStyle);
    }


    /**
     * 判断是否是合并单元格
     *
     * @param row    行
     * @param column 列
     * @return 是/否
     */
    private boolean isMerge(Sheet sheet, int row, int column) {
        int sheetMergeCount = sheet.getNumMergedRegions();
        for (int i = 0; i < sheetMergeCount; i++) {
            CellRangeAddress range = sheet.getMergedRegion(i);
            int firstColumn = range.getFirstColumn();
            int lastColumn = range.getLastColumn();
            int firstRow = range.getFirstRow();
            int lastRow = range.getLastRow();
            if (row >= firstRow && row <= lastRow) {
                if (column >= firstColumn && column <= lastColumn) {
                    return true;
                }
            }
        }
        return false;
    }

    //	/**
//	 * 导出测试
//	 */
//	public web void main(String[] args) throws Throwable {
//
//		List<String> headerList = Lists.newArrayList();
//		for (int i = 1; i <= 10; i++) {
//			headerList.add("表头"+i);
//		}
//
//		List<String> dataRowList = Lists.newArrayList();
//		for (int i = 1; i <= headerList.size(); i++) {
//			dataRowList.add("数据"+i);
//		}
//
//		List<List<String>> dataList = Lists.newArrayList();
//		for (int i = 1; i <=1000000; i++) {
//			dataList.add(dataRowList);
//		}
//
//		ExportExcel ee = new ExportExcel("表格标题", headerList);
//
//		for (int i = 0; i < dataList.size(); i++) {
//			Row row = ee.addRow();
//			for (int j = 0; j < dataList.get(i).size(); j++) {
//				ee.addCell(row, j, dataList.get(i).get(j));
//			}
//		}
//
//		ee.writeFile("target/export.xlsx");
//
//		ee.dispose();
//
//		log.debug("Export success.");
//
//	}

    public Sheet getSheet() {
        return sheet;
    }
}
